Creating images with R
with a little bit of magick
Andrew Sue
2024-03-12
@import url('https://fonts.googleapis.com/css2?family=Bangers&display=swap');
h2 {font-weight: bold;
text-decoration: underline;
}
body {background-color: #C3B1E1;
font-family: 'Bangers';
font-size: 150%
}Project requirements
I have met the requirements by successfully creating a Github repository and using it to add my files to it. My Github repo can be found here.
You can see the website created that displays my memes here
Below is a screenshot of the project folder I created on my computer.
It showcases all the files I used in this project. 
below i demonstrate using the magick package in R to create memes and gifs
My meme
my meme inspiration i took inspiration from the drake part format of the meme keeping those elements in, and them change the subject, from LGBQT to pointing adding in anime images and making fun of compsci students
“inspiration meme”
My meme details the lack of masculinity within males that take compsci.
“Meme about compsci masculinity”
library(magick)
# Read the images from the URLs
Drake_nah <- image_read("https://cdn.discordapp.com/attachments/307428189020356608/1212378862986727424/image.png?ex=65f19ecd&is=65df29cd&hm=d2e5f67511e8484561e725094842ff154334eda496b617fdaa03b04e58e9d1d0&") %>%
image_scale(300)
Drake_yah <- image_read("https://cdn.discordapp.com/attachments/307428189020356608/1212380071592071188/image.png?ex=65f19fee&is=65df2aee&hm=c557c699849bfe7ce0373bf1d3e985e8db27f3604494271fa3270554efc2d085&") %>%
image_scale(300)
guys_irl <- image_read("https://images-wixmp-ed30a86b8c4ca887773594c2.wixmp.com/f/2f6ed149-c2f1-45b1-876c-0c26ccf7c2e2/dfw4wvo-a3c9af98-a621-4eeb-bffc-5ead4b300254.png?token=eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJzdWIiOiJ1cm46YXBwOjdlMGQxODg5ODIyNjQzNzNhNWYwZDQxNWVhMGQyNmUwIiwiaXNzIjoidXJuOmFwcDo3ZTBkMTg4OTgyMjY0MzczYTVmMGQ0MTVlYTBkMjZlMCIsIm9iaiI6W1t7InBhdGgiOiJcL2ZcLzJmNmVkMTQ5LWMyZjEtNDViMS04NzZjLTBjMjZjY2Y3YzJlMlwvZGZ3NHd2by1hM2M5YWY5OC1hNjIxLTRlZWItYmZmYy01ZWFkNGIzMDAyNTQucG5nIn1dXSwiYXVkIjpbInVybjpzZXJ2aWNlOmZpbGUuZG93bmxvYWQiXX0.Z5tVVFGh8k7vChBI9p9EbpWD9MKOMLhoaAFmMAzjIEA")%>%
image_scale(300)
guys_discord <- image_read("https://animeforums.net/uploads/monthly_2023_09/image.png.508006d3756622989a8577fe5378c8ef.png")%>%
image_scale(300)
guys_compsci <- image_read("https://m.media-amazon.com/images/I/61Vc8Hy82pL._AC_SL1000_.jpg") %>%
image_scale(300)
# Annotate the images with text using the impact font
guys_irl <- guys_irl %>%
image_annotate(text = "guys in real life",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")
guys_discord <- guys_discord %>%
image_annotate(text = "guys on discord",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")
guys_compsci <- guys_compsci %>%
image_annotate(text = "guys in compsci",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")
#combined final meme
final_meme <- c(top_row,middle_row, bottom_row) %>%
image_append(stack = TRUE)
# Create four different frames for the animation
# Frame 1: Drake_nah and guys_irl
frame1 <- c(Drake_nah, guys_irl) %>%
image_append() %>%
image_scale(600)
# Frame 2: Drake_nah and guys_discord
frame2 <- c(Drake_nah, guys_discord) %>%
image_append() %>%
image_scale(600)
# Frame 3: Drake_yah and guys_compsci
frame3 <- c(Drake_yah, guys_compsci) %>%
image_append() %>%
image_scale(600)
# Frame 4: Drake_yah and guys_compsci with a negate effect
frame4 <- c(Drake_yah, guys_compsci) %>%
image_append() %>%
image_scale(600) %>%
image_negate()
# Combine the frames into an animation using the image_animate function
animation <- c(frame1, frame2, frame3, frame4) %>%
image_animate(fps = 1) # set the frames per second
# Save the meme as an image file using the image_write function
image_write(final_meme, "my_meme.png")
# Save the animation as an image file using the image_write function
image_write(animation, "my_gif.gif")I made 2 animated Gifs one gif animating the meme i made previously
and a new gif using the lyrics from Cascada everytime we touch . 
library(magick)
# Read the images from the URLs
Drake_nah <- image_read("https://cdn.discordapp.com/attachments/307428189020356608/1212378862986727424/image.png?ex=65f19ecd&is=65df29cd&hm=d2e5f67511e8484561e725094842ff154334eda496b617fdaa03b04e58e9d1d0&") %>%
image_scale(300)
Drake_yah <- image_read("https://cdn.discordapp.com/attachments/307428189020356608/1212380071592071188/image.png?ex=65f19fee&is=65df2aee&hm=c557c699849bfe7ce0373bf1d3e985e8db27f3604494271fa3270554efc2d085&") %>%
image_scale(300)
guys_irl <- image_read("https://images-wixmp-ed30a86b8c4ca887773594c2.wixmp.com/f/2f6ed149-c2f1-45b1-876c-0c26ccf7c2e2/dfw4wvo-a3c9af98-a621-4eeb-bffc-5ead4b300254.png?token=eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJzdWIiOiJ1cm46YXBwOjdlMGQxODg5ODIyNjQzNzNhNWYwZDQxNWVhMGQyNmUwIiwiaXNzIjoidXJuOmFwcDo3ZTBkMTg4OTgyMjY0MzczYTVmMGQ0MTVlYTBkMjZlMCIsIm9iaiI6W1t7InBhdGgiOiJcL2ZcLzJmNmVkMTQ5LWMyZjEtNDViMS04NzZjLTBjMjZjY2Y3YzJlMlwvZGZ3NHd2by1hM2M5YWY5OC1hNjIxLTRlZWItYmZmYy01ZWFkNGIzMDAyNTQucG5nIn1dXSwiYXVkIjpbInVybjpzZXJ2aWNlOmZpbGUuZG93bmxvYWQiXX0.Z5tVVFGh8k7vChBI9p9EbpWD9MKOMLhoaAFmMAzjIEA")%>%
image_scale(300)
guys_discord <- image_read("https://animeforums.net/uploads/monthly_2023_09/image.png.508006d3756622989a8577fe5378c8ef.png")%>%
image_scale(300)
guys_compsci <- image_read("https://m.media-amazon.com/images/I/61Vc8Hy82pL._AC_SL1000_.jpg") %>%
image_scale(300)
# Annotate the images with text using the impact font
guys_irl <- guys_irl %>%
image_annotate(text = "guys in real life",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")
guys_discord <- guys_discord %>%
image_annotate(text = "guys on discord",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")
guys_compsci <- guys_compsci %>%
image_annotate(text = "guys in compsci",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")
#combined final meme
final_meme <- c(top_row,middle_row, bottom_row) %>%
image_append(stack = TRUE)
# Create four different frames for the animation
# Frame 1: Drake_nah and guys_irl
frame1 <- c(Drake_nah, guys_irl) %>%
image_append() %>%
image_scale(600)
# Frame 2: Drake_nah and guys_discord
frame2 <- c(Drake_nah, guys_discord) %>%
image_append() %>%
image_scale(600)
# Frame 3: Drake_yah and guys_compsci
frame3 <- c(Drake_yah, guys_compsci) %>%
image_append() %>%
image_scale(600)
# Frame 4: Drake_yah and guys_compsci with a negate effect
frame4 <- c(Drake_yah, guys_compsci) %>%
image_append() %>%
image_scale(600) %>%
image_negate()
# Combine the frames into an animation using the image_animate function
animation <- c(frame1, frame2, frame3, frame4) %>%
image_animate(fps = 1) # set the frames per second
# Save the meme as an image file using the image_write function
image_write(final_meme, "my_meme.png")
# Save the animation as an image file using the image_write function
image_write(animation, "my_gif.gif")
“Everytime we touch”
library(magick)
# Read the images from the URLs
anime_girl <- image_read("https://i.ytimg.com/vi/WlEpJZQsZeE/maxresdefault.jpg") %>%
image_scale(800)
anime_hand_hold <- image_read("https://i.pinimg.com/736x/ae/c1/b0/aec1b0fd66b63c4822b2f7a0ede46dde.jpg") %>%
image_scale(800)
anime_kiss <- image_read("https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcRoY7es475ODgvolvBuFjmP9wFTYIxSPTuHZw&usqp=CAU") %>%
image_scale(800)
anime_fly <- image_read("https://i.ytimg.com/vi/tsKJblBftoo/maxresdefault.jpg") %>%
image_scale(800)
anime_heart <- image_read("https://img.freepik.com/premium-photo/anime-girl-making-heart-with-her-hands-middle-street-generative-ai_1034058-1887.jpg?w=740")%>%
image_scale(800)
anime_blush <-image_read("https://i.ytimg.com/vi/Tq-a-ETev1o/maxresdefault.jpg")%>%
image_scale(800)
anime_summon <-image_read("https://static.wikia.nocookie.net/yugioh/images/c/cf/Dm_op1_voice_creditless.png/revision/latest?cb=20150509180949")%>%
image_scale(800)
# Annotate the images with text using the impact font
anime_hand_hold <- anime_hand_hold %>%
image_annotate(text = "Cause every time we touch",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")%>%
image_negate()
anime_girl <- anime_girl %>%
image_annotate(text = "I get this feeling",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")
anime_kiss <- anime_kiss %>%
image_annotate(text = "And every time we kiss",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")%>%
image_oilpaint
anime_fly <- anime_fly %>%
image_annotate(text = "I swear I could fly",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")
anime_heart <- anime_heart %>%
image_annotate(text = "Can't you feel my heart beat fast",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")
anime_blush <- anime_blush %>%
image_annotate(text = "I want this to last",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")
anime_summon <- anime_summon %>%
image_annotate(text = "Need you by my side",
color = "#000000",
size = 40,
font = "Impact",
gravity = "North")%>%
image_negate()
animation <- c(anime_hand_hold,anime_girl,anime_kiss,anime_fly,anime_heart,anime_blush,anime_summon) %>%
image_animate(fps = 0.5)
image_write(animation, "final_gif.gif")Creativity
I believe that my project demonstrates creativity due to the fact that I researched and used additional functions from the {magick} package. These include functions like image_negative, and image_oilpaint i also created 2 animated gifs showing the use of each function .
Learning reflection
I learned a lot of useful stuff from this module, such how to set up a Github repository and how to use Markdown and R. Since I want to work as a software engineer, I think knowing how to utilize Github is essential, therefore this module helped me learn the fundamentals..
I’m very interested in learning more about R so that I may use statistical techniques in my coding. In order to visualize data in a way that is understandable to the intended audience, I also want to learn about data analysis techniques and the appropriate technologies to employ.